home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / src / mrq_library.lha / lib / examples / asm / uzycie_konwersji.s < prev   
Text File  |  2000-09-07  |  3KB  |  211 lines
  1. ;APS0000084B000001D1000001D1000001D1000001D1000001D1000001D1000001D1000001D1000001D1
  2.     incdir    includes:
  3.  
  4.     include    lvos.i
  5.     include    lvo/mrq_lib.i
  6.     include    exec/exec.i
  7.     include    graphics/gfx.i
  8.     include    intuition/intuition.i
  9.     include    libraries/cybergraphics.i
  10.     include    lvo/cybergraphics_lib.i
  11.  
  12.  
  13.     section    code,code_p
  14.  
  15.     move.l    4,a6
  16.     moveq    #$00,d0
  17.     lea    mrqlib,a1
  18.     jsr    _LVOOpenLibrary(a6)
  19.     move.l    d0,mrqbase
  20.     tst.l    d0
  21.     beq.w    _stupid_error
  22.  
  23.     move.l    mrqbase,a6
  24.     jsr    _LVOMisterQInit(a6)    ;inicjalizacja biblioteki, struktur
  25.     move.l    d0,lib_base
  26.     move.l    lib_base,a5
  27.  
  28.     move.l    intbase(a5),a6
  29.     lea    0,a0
  30.     lea    window,a1
  31.     jsr    _LVOOpenWindowTagList(a6)
  32.     tst.l    d0
  33.     beq.w    _no_win
  34.     move.l    d0,winbase
  35.  
  36.     move.l    d0,a0
  37.     move.l    wd_UserPort(a0),userport
  38.     move.l    wd_RastPort(a0),s_RastPort(a5)
  39.  
  40. _set_t    
  41.  
  42.     move.l    mrqbase,a6
  43.  
  44.     move.w    #2,_kolor0(a5)
  45.     move.w    #70,_kolor1(a5)
  46.  
  47.     move.l    #10,d0
  48.     move.l    #25,d1
  49.     lea    text1,a0
  50.     jsr    _LVOWyswTXT(a6)
  51.  
  52.     move.l    liczba,d0
  53.     jsr    _LVODecConvert(a6)
  54.     
  55.     move.w    #3,_kolor0(a5)
  56.     move.w    #71,_kolor1(a5)
  57.  
  58.     move.l    #10,d0
  59.     move.l    #35,d1
  60.     move.l    tabdec1(a5),a0
  61.     jsr    _LVOWyswTXT(a6)
  62.  
  63.     move.w    #4,_kolor0(a5)
  64.     move.w    #72,_kolor1(a5)
  65.  
  66.     move.l    #10,d0
  67.     move.l    #45,d1
  68.     move.l    tabdec2(a5),a0
  69.     jsr    _LVOWyswTXT(a6)
  70.  
  71.     move.l    liczba,d0
  72.     jsr    _LVOHexConvert(a6)
  73.     
  74.     move.w    #5,_kolor0(a5)
  75.     move.w    #73,_kolor1(a5)
  76.  
  77.     move.l    #10,d0
  78.     move.l    #55,d1
  79.     move.l    tabhex1(a5),a0
  80.     jsr    _LVOWyswTXT(a6)
  81.  
  82.     move.l    liczba,d0
  83.     jsr    _LVORomanConvert(a6)
  84.     
  85.     move.w    #6,_kolor0(a5)
  86.     move.w    #12,_kolor1(a5)
  87.  
  88.     move.l    #10,d0
  89.     move.l    #65,d1
  90.     move.l    tabroman1(a5),a0
  91.     jsr    _LVOWyswTXT(a6)
  92.  
  93.     move.w    #7,_kolor0(a5)
  94.     move.w    #13,_kolor1(a5)
  95.  
  96.     move.l    #10,d0
  97.     move.l    #75,d1
  98.     lea    text2,a0
  99.     jsr    _LVOWyswTXT(a6)
  100.  
  101.     move.w    #8,_kolor0(a5)
  102.     move.w    #14,_kolor1(a5)
  103.  
  104.     move.l    #10,d0
  105.     move.l    #85,d1
  106.     lea    text3,a0
  107.     jsr    _LVOWyswTXT(a6)
  108.  
  109. _czekaj    move.l    userport,a0
  110.     jsr    _LVOGetMessage(a6)
  111.     move.l    d0,a0
  112.     move.l    im_Class(a0),d0
  113.     cmp.l    #IDCMP_CLOSEWINDOW,d0
  114.     beq.w    _exit
  115.     cmp.l    #IDCMP_RAWKEY,d0
  116.     beq.b    _key
  117.     bra.b    _czekaj
  118. _key    move.w    im_Code(a0),d0
  119.     and.l    #$000000ff,d0
  120.     cmp.b    #64,d0
  121.     beq.w    _exit
  122.  
  123.     jsr    _LVODecConvert(a6)
  124.  
  125.     cmp.b    #76,d0
  126.     bne.b    _no_dol
  127.  
  128.     sub.l    #$01,liczba
  129.     
  130. _no_dol    cmp.b    #77,d0
  131.     bne.b    _no_gor
  132.  
  133.     add.l    #$01,liczba
  134.  
  135. _no_gor
  136.     move.l    s_RastPort(a5),a1
  137.     move.l    gfxbase(a5),a6
  138.  
  139.     move.l    #$00,d0
  140.     jsr    _LVOSetAPen(a6)
  141.  
  142.     move.l    #10,d0
  143.     move.l    #25,d1
  144.     move.l    #350,d2
  145.     move.l    #110,d3
  146.     jsr    _LVORectFill(a6)
  147.  
  148.     move.w    #8,_kolor0(a5)
  149.     move.w    #7,_kolor1(a5)
  150.  
  151.     move.l    #150,d0
  152.     move.l    #85,d1
  153.     move.l    tabdec2(a5),a0
  154.  
  155.     move.l    mrqbase,a6
  156.     
  157.     jsr    _LVOWyswTXT(a6)
  158.  
  159.     move.l    #1000,d0
  160.     jsr    _LVORnd(a6)
  161.     jsr    _LVODecConvert(a6)
  162.  
  163.     move.w    #7,_kolor0(a5)
  164.     move.w    #0,_kolor1(a5)
  165.  
  166.     move.l    #210,d0
  167.     move.l    #75,d1
  168.     move.l    tabdec2(a5),a0
  169.  
  170.     jsr    _LVOWyswTXT(a6)
  171.     
  172.     bra.w    _set_t
  173.  
  174.  
  175. _exit    move.l    winbase,a0
  176.     move.l    intbase(a5),a6
  177.     jsr    _LVOCloseWindow(a6)
  178.     
  179. _no_win    move.l    lib_base,a0
  180.     jsr    _LVOMisterQCleanUp(a6)    ;zwolnienie struktur,tablic, itp
  181.     move.l    4,a6
  182.     move.l    mrqbase,a1
  183.     jsr    _LVOCloseLibrary(a6)
  184. ;-------
  185. _stupid_error
  186.     moveq    #$00,d0
  187. _upss1    rts
  188. ;-------
  189. mrqbase        dc.l    $00
  190. lib_base    dc.l    $00
  191. winbase        dc.l    $00
  192. liczba        dc.l    $00
  193. userport    dc.l    $00
  194. ;-------
  195. window    dc.l    WA_Width,400
  196.     dc.l    WA_Height,150
  197.     dc.l    WA_CloseGadget,1
  198.     dc.l    WA_DragBar,1
  199.     dc.l    WA_DepthGadget,1
  200.     dc.l    WA_IDCMP,IDCMP_MOUSEBUTTONS+IDCMP_MENUPICK+IDCMP_MOUSEMOVE+IDCMP_RAWKEY+IDCMP_CLOSEWINDOW
  201.     dc.l    WA_Activate,1
  202.     dc.l    $00,$00    
  203. ;-------
  204. text1    dc.b    'Przyklad uzycia funkcji WyswTXT()',0
  205. text2    dc.b    'Liczba losowa z zakresu 1000',0
  206. text3    dc.b    'Naciôniëty klawisz:',0
  207. ;-------
  208. mrqlib        dc.b    'mrq.library',0
  209. ;-------
  210.  
  211.